home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 122 / Tiger_Disk_122_20xx_Tiger-Crew-Disk_de_Side_B.d64 / error checker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 10 clr:poke53281,0:poke53280,0:am=99:q$=chr$(0):dimeb(35,20)
  2. 20 print"[147]new error logger"
  3. 30 print"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 print"created by jim drew"
  5. 50 gosub330
  6. 60 print"press any key when ready"
  7. 70 geta$:ifa$=""thenpoke646,int(13*rnd(1)+2):goto60
  8. 80 open15,8,15:print#15,"i":close15
  9. 90 dimbt(35):forx=1to17:bt(x)=20:next:forx=18to23:bt(x)=18:next
  10. 100 forx=24to30:bt(x)=17:next:forx=31to35:bt(x)=16:next
  11. 110 fort=tstote:print"[147][159]track # ";t;""
  12. 120 fors=0tobt(t)
  13. 130 print"sector # ";s;:ifs<10thenprint" ";
  14. 140 open15,8,15
  15. 150 print#15,"m-w"chr$(6)q$;chr$(2)chr$(t)chr$(s)
  16. 160 print#15,"m-w"q$;q$;chr$(1)chr$(128)
  17. 170 print#15,"m-r"q$;q$
  18. 180 get#15,a$:a=asc(a$+q$):ifa>am then170
  19. 190 ifa=1thenprint" good":eb(t,s)=.:goto310
  20. 200 ifa=2thenb$="read error"
  21. 210 ifa=3thenb$="read error"
  22. 220 ifa=4thenb$="read error"
  23. 230 ifa=5thenb$="read error"
  24. 240 ifa=6thenb$="bit pattern error"
  25. 250 ifa=7thenb$="write error"
  26. 260 ifa=8thenb$="write protect on"
  27. 270 ifa=9thenb$="read error"
  28. 280 ifa=10thenb$="write error"
  29. 290 ifa=11thenb$="id mismatch error"
  30. 300 print" ";a+18;" ";b$:eb(t,s)=a+18
  31. 310 close15:getz$:ifz$<>""then450
  32. 320 next:next :goto450
  33. 330 print"[154]you may choosp[154] a set of tracks to test"
  34. 340 print"or you can test all[154] tracks"
  35. 350 print"please enter a[154] or c: a[157]";:open1,0:input#1,c$:close1:print
  36. 360 ifleft$(c$,1)="a"thents=1:te=35:return
  37. 370 ifleft$(c$,1)="c"then390
  38. 380 print"[147]":goto330
  39. 390 print"[147]";"starting track #:";:open1,0:input#1,ts$:close1:print:ts=val(ts$)
  40. 400 ifts<0orts>35then390
  41. 410 print"ending track #:";:open1,0:input#1,te$:close1:print:te=val(te$)
  42. 420 ifte<0orte>35then390
  43. 430 ifte<tsthen390
  44. 440 return
  45. 450 print"[147][154]do you wish a report of disk errors: y[157]";
  46. 460 open1,0:input#1,q$:close1:print
  47. 470 ifleft$(q$,1)="y"then500
  48. 480 ifleft$(q$,1)="n"then10
  49. 490 goto450
  50. 500 print"[154]output to printer: n[157]";:open1,0:input#1,q$:close1:print
  51. 510 ifleft$(q$,1)="y"thend=4
  52. 520 ifleft$(q$,1)="n"thend=3
  53. 530 open4,d
  54. 540 print"[147]"
  55. 550 fort=tstote:fors=0tobt(t)
  56. 560 ifeb(t,s)<>0then610
  57. 570 next:next
  58. 580 print"end of report-press any key":poke198,0
  59. 590 geta$:ifa$=""then590
  60. 600 goto10
  61. 610 print#4,"error # ";eb(t,s);" track:";t;" sector:";s
  62. 620 goto570
  63. 630 rem
  64. 640 rem
  65. 650 rem
  66. 660 rem
  67. 670 rem
  68. 680 rem
  69. 690 rem
  70.